home *** CD-ROM | disk | FTP | other *** search
/ CICA 1993 April / CICA MS Windows - April 1993.iso / unzipped / winword / fixwin / fixwin.smm next >
INI File  |  1992-01-27  |  5KB  |  262 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~default.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     Epson 24 pin
  13. [lang]
  14.     1
  15. [desc]
  16.     This macro will make all the modifications necessary to automatically download Postscript fonts when you print a file.
  17.     
  18.     
  19.     
  20.     
  21.     696496515
  22.     12
  23.     696484581
  24.     114
  25.     2
  26.     0
  27.     0
  28.     0
  29.     0
  30.     
  31.     
  32.     
  33.     
  34.     
  35.     
  36.     0
  37. [fopts]
  38.     0
  39.     1
  40.     0
  41.     0
  42. [lnopts]
  43.     2
  44.     Body Text
  45.     1
  46. [docopts]
  47.     5
  48.     2
  49. [l1]
  50.     0
  51. [pg]
  52.     2
  53.     46 0 67 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  54.     59 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  55. [edoc]
  56. <:#280,9360>function fixwin()
  57.  
  58. <:#280,9360>ignorekeyboard(1)
  59.  
  60. <:#280,9360>
  61.  
  62. <:#280,9360>onerror endfunc
  63.  
  64. <:#280,9360>oncancel endfunc
  65.  
  66. <:#280,9360>butthit=dialogbox(".","DiBox")
  67.  
  68. <:#280,9360>if butthit = 0 then goto endfunc
  69.  
  70. <:#280,9360>endif
  71.  
  72. <:#280,9360>if butthit = 2 then goto endfunc
  73.  
  74. <:#280,9360>endif
  75.  
  76. <:#280,9360>type("<[>home]<[>home]")
  77.  
  78. <:#280,9360>winpath$=query$("Specify the path where win.ini resides.","d:\windows\")
  79.  
  80. <:#280,9360>fileopen("{winpath$}win.ini",16,"ASCII")
  81.  
  82. <:#280,9360>replace(0,0,0,"<[><[>Postscript","")
  83.  
  84. <:#280,9360>type("<[>right]")
  85.  
  86. <:#280,9360>pfms$ = query$("Where are your Type 1 .pfm files located?","d:\psfonts\pfm\")
  87.  
  88. <:#280,9360>pfbs$ = query$("Where are your Type 1 .pfb files located?","d:\psfonts\")
  89.  
  90. <:#280,9360>while (replace(0,0,0,"softfont","") <;>  0 )
  91.  
  92.     statusbarmsg("Working...")
  93.  
  94. <:#280,9360>    type("<[>right]")
  95.  
  96. <:#280,9360>    replace(0,0,0,pfms$,"")
  97.  
  98. <:#280,9360>    type("<[>right]<[>left]")
  99.  
  100. <:#280,9360>    type("<[>shiftend]")
  101.  
  102. <:#280,9360>    check$=curshade$()
  103.  
  104. <:#280,9360>    if right$(check$,1) != "b"
  105.  
  106. <:#280,9360>        copy()
  107.  
  108. <:#280,9360>        type("<[>end]")
  109.  
  110. <:#280,9360>        type(",{pfbs$}")
  111.  
  112. <:#280,9360>        paste()
  113.  
  114. <:#280,9360>        type("<[>end]")
  115.  
  116. <:#280,9360>        type("<[>backspace]b<[>down]")
  117.  
  118. <:#280,9360>        type("<[>home]")
  119.  
  120. <:#280,9360>    else
  121.  
  122. <:#280,9360>        type("<[>down]<[>home]")
  123.  
  124. <:#280,9360>    endif
  125.  
  126.     statusbarmsg("")
  127.  
  128. <:#280,9360>wend
  129.  
  130. <:#280,9360>dosdelfile("{winpath$}win.bkp")
  131.  
  132. <:#280,9360>dosrename("{winpath$}win.ini","{winpath$}win.bkp")
  133.  
  134. messages(off)
  135.  
  136. statusbarmsg("Click on OK!")
  137.  
  138. saveas("{winpath$}win.ini",0,"","ASCII")
  139.  
  140. statusbarmsg("")
  141.  
  142. <:#280,9360>filechanged(1,0)
  143.  
  144. <:#280,9360>fileclose()
  145.  
  146. message("You must restart Windows for the changes to take effect.")
  147.  
  148. <:#280,9360>endfunc:
  149.  
  150. <:#280,9360>
  151.  
  152. <:#280,9360>end function
  153.  
  154. <:#280,9360>
  155.  
  156. <:#280,9360>DIALOG DiBox
  157.  
  158. <:#280,9360>-2134900736 5 89 52 137 93 "" "" "FIXWIN.INI"
  159.  
  160. <:#560,9360>7 8 119 26 1000 1342177281 "static" "If you want to modify your Win.Ini file so that all Postscript fonts listed there are automatically downloaded" 0 
  161.  
  162. <:#560,9360>7 31 116 18 1001 1342177281 "static" "when you print a file to the Postscript printer, hit OK." 0 
  163.  
  164. <:#280,9360>15 50 40 14 1 1342373889 "button" "OK" 0 
  165.  
  166. <:#280,9360>86 50 40 14 2 1342373888 "button" "Abort" 0 
  167.  
  168. <:#560,9360>16 69 103 19 1002 1342177281 "static" "Copyright 1992 Mike Pittelkow  fringe@iastate.edu" 0 
  169.  
  170. <:#280,9360>END DIALOG
  171.  
  172. <:#280,9360>
  173.  
  174. >
  175.  
  176. [Embedded]
  177. 00003176
  178. >
  179. [macsum] 2
  180. fixwin 0 0 6 0
  181. DiBox 1028 0 -1 50
  182. [macse]
  183. 14 fixwin
  184. 0 32 1
  185. 20 00001016
  186. 19 00001016
  187. 0 26 "." "DiBox"
  188. 13
  189. 8 1
  190. 6 1
  191. 5 0
  192. 18 0
  193. 11 00000114
  194. 10 00001016
  195. 6 1
  196. 5 2
  197. 18 0
  198. 11 00000156
  199. 10 00001016
  200. 0 6 "[36][36]"
  201. 0 1 "Specify the path where win.ini resides." "d:\windows\"
  202. 13
  203. 8 2
  204. 2 102 1 "{2}win.ini" 16 "ASCII"
  205. 2 488 1 0 0 0 "[[Postscript" ""
  206. 0 6 "[39]"
  207. 0 1 "Where are your Type 1 .pfm files located?" "d:\psfonts\pfm\"
  208. 13
  209. 8 3
  210. 0 1 "Where are your Type 1 .pfb files located?" "d:\psfonts\"
  211. 13
  212. 8 4
  213. 2 488 1 0 0 0 "softfont" ""
  214. 13
  215. 5 0
  216. 18 3
  217. 11 00000805
  218. 0 789 "Working..."
  219. 0 6 "[39]"
  220. 2 488 1 0 0 0 "{3}" ""
  221. 0 6 "[39][37]"
  222. 0 6 "[4131]"
  223. 0 24
  224. 13
  225. 8 5
  226. 0 807 "{5}" 1
  227. 13
  228. 7 "b"
  229. 18 1
  230. 11 00000766
  231. 2 154 1
  232. 0 6 "[35]"
  233. 0 6 ",{4}"
  234. 2 155 1
  235. 0 6 "[35]"
  236. 0 6 "[8]b[40]"
  237. 0 6 "[36]"
  238. 10 00000782
  239. 0 6 "[40][36]"
  240. 0 789 ""
  241. 10 00000468
  242. 0 779 "{2}win.bkp"
  243. 0 778 "{2}win.ini" "{2}win.bkp"
  244. 0 30 0
  245. 0 789 "Click on OK!"
  246. 2 104 1 "{2}win.ini" 0 "" "ASCII"
  247. 0 789 ""
  248. 0 34 1 0
  249. 2 147 1
  250. 0 3 "You must restart Windows for the changes to take effect."
  251. 6 0
  252. 15
  253. 9
  254. DIALOG DiBox
  255. -2134900736 5 89 52 137 93 "" "" "FIXWIN.INI" 
  256. 7 8 119 26 1000 1342177281 "static" "If you want to modify your Win.Ini file so that all Postscript fonts listed there are automatically downloaded" 0 
  257. 7 31 116 18 1001 1342177281 "static" "when you print a file to the Postscript printer, hit OK." 0 
  258. 15 50 40 14 1 1342373889 "button" "OK" 0 
  259. 86 50 40 14 2 1342373888 "button" "Abort" 0 
  260. 16 69 103 19 1002 1342177281 "static" "Copyright 1992 Mike Pittelkow  fringe@iastate.edu" 0 
  261. 00003201
  262.